home *** CD-ROM | disk | FTP | other *** search
/ Aminet 41 / Aminet 41 (2001)(Schatztruhe)[!][Feb 2001].iso / Capital / cp.lha / MakeBootDisk < prev    next >
Text File  |  1997-02-24  |  927b  |  31 lines

  1. requestchoice "Capital Punishment Make Boot Disk Utility" "Please insert a floppy disk into the drive DF0:*N*NWARNING: The disk will be formatted and all the data*Non it will be erased!"  PROCEED|ABORT
  2.  
  3. IF $RESULT EQ 1
  4.         cd >ENV:CPdirectory
  5.         echo "*NIMPORTANT NOTE: DO NOT REMOVE the disk from"
  6.         echo "         the drive until prompted*N"
  7.  
  8.         echo "Press RETURN to continue ... *N"
  9.  
  10.  
  11.         format >NIL: drive DF0: name CapitalBOOT noicons FFS
  12.         inst DF0: FFS
  13.         makedir CapitalBOOT:s
  14.  
  15.         copy quote ram:tmp1
  16.         echo $CPdirectory NOLINE >>ram:tmp1
  17.         type quote >>ram:tmp1
  18.         echo execute cp >>ram:tmp1
  19.         
  20.         echo "cd " NOLINE >ram:tmp2
  21.         type ram:tmp1 >>ram:tmp2
  22.         copy ram:tmp2 to CapitalBOOT:s/startup-sequence
  23.         
  24.         
  25.         wait 2
  26.         
  27.         echo "You can now remove the disk from DF0:*N"
  28.         wait 5
  29.         endcli
  30. ENDIF
  31.